|
200
|
Can you add text with links in the event
METHOD OCX_Exontrol1AnchorClick(AnchorID,Options) CLASS MainDialog
// AnchorClick event - Occurs when an anchor element is clicked.
OutputDebugString(String2Psz( AsString(AnchorID) ))
OutputDebugString(String2Psz( AsString(Options) ))
RETURN NIL
local var_Events as IEvents
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120620")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120620 09:00:00"),SToD("20120620 11:00:00")):ExtraLabel := "<aID1234;OPTIONS-1234>click me</a>"
var_Events:Add(SToD("20120620 11:00:00"),SToD("20120620 13:00:00")):ExtraLabel := "<a1235;OPTIONS-1235>click me</a>"
|
|
199
|
How do you adjust the font type and size of the event (method 2)
local var_Events as IEvents
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120620")
oDCOCX_Exontrol1:DefaultEventShortLabel := "<font mistral;12><%=%256%>"
oDCOCX_Exontrol1:DefaultEventLongLabel := oDCOCX_Exontrol1:DefaultEventShortLabel
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120620 09:00:00"),SToD("20120620 11:00:00"))
var_Events:Add(SToD("20120620 11:00:00"),SToD("20120620 13:00:00"))
|
|
198
|
How do you adjust the font type and size of the event (method 1)
local var_Event,var_Event1 as IEvent
local var_Events as IEvents
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120620")
var_Events := oDCOCX_Exontrol1:Events
var_Event := var_Events:Add(SToD("20120620 09:00:00"),SToD("20120620 11:00:00"))
var_Event:ShortLabel := "<font tahoma;12><%=%256%>"
var_Event:LongLabel := var_Event:ShortLabel
var_Event1 := var_Events:Add(SToD("20120620 11:00:00"),SToD("20120620 13:00:00"))
var_Event1:ShortLabel := "<fgcolor FF><i><font Mistral;16>your caption</i></font> goes here"
var_Event1:LongLabel := var_Event1:ShortLabel
|
|
197
|
How can I change the shape of the line to be shown when user drag and drop data over the control
oDCOCX_Exontrol1:OLEDropMode := exOLEDropManual
oDCOCX_Exontrol1:VisualAppearance:Add(1,"C:\Program Files\Exontrol\ExSchedule\Sample\EBN\dash1.ebn")
oDCOCX_Exontrol1:[Background,exScheduleOLEDropPosition] := 0x1000000
|
|
196
|
How can I highlight the date-time from cursor when the user drag and drop data over the control
oDCOCX_Exontrol1:OLEDropMode := exOLEDropManual
oDCOCX_Exontrol1:[Background,exScheduleOLEDropPosition] := RGB(1,0,0)
|
|
195
|
How can I start drag and drop events
METHOD OCX_Exontrol1OLEStartDrag(Data,AllowedEffects) CLASS MainDialog
// OLEStartDrag event - Occurs when the OLEDrag method is called.
// Data.SetData("to be carried by drag and drop")
AllowedEffects := 1
RETURN NIL
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowMoveEvent := exDisallow
oDCOCX_Exontrol1:AllowCreateEvent := exDisallow
oDCOCX_Exontrol1:OLEDropMode := exOLEDropManual
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120627")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120627 11:00:00"),SToD("20120627 12:30:00")):BodyBackColor := RGB(255,0,0)
var_Events:Add(SToD("20120627 11:30:00"),SToD("20120627 13:30:00"))
var_Events:Add(SToD("20120627 08:30:00"),SToD("20120627 11:45:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
194
|
Is it possible to show the today date with a different foreground color
oDCOCX_Exontrol1:Calendar:Selection := "month(value) = month(date(``)) and (int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(date(``))-1)/7))"
oDCOCX_Exontrol1:[Background,exCalendarMarkToday] := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:[Background,exCalendarMarkTodayForeColor] := RGB(255,0,0)
|
|
193
|
How can I hide the rectangle around the today date
oDCOCX_Exontrol1:Calendar:Selection := "month(value) = month(date(``)) and (int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(date(``))-1)/7))"
oDCOCX_Exontrol1:[Background,exCalendarMarkToday] := oDCOCX_Exontrol1:BackColor
|
|
192
|
Is it possible to change the appearance of event with no status using the EBN (office theme)
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BeoDg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpAWCYRDGEwCQiNQyRDCYYw+GYCJBmKKYcgONYgQLHcgxDIsJw/FyERjjeB4egkaZHRZOUZTZQsBxRAZ2Q4EQAKRpOFY9DTPcr0HR8ZQ+BKNAYkSjQAp2VZUVJFUqDKItVzbBIaRgteA7RrOXpjRjYEBxDKcZyxLqVLToiqcRz7PqbZrjeioZoyBI+QjgYAUFDeGSTDQ3bwAA4rEqaaZnVbkOQQJTcNy7EKvYRzGA7CgPHI5QjnVR6BjUJztWyIbp3G4rchqH4RaqAF5ZXg9ez/FIaJbnUaMWhXFqOABwPC0XoIGuAJklAeR6H2dAngcEZWnQehzCsd4SmGPJzF2Io1l2fhrgeUpxHOLIAggSRAlIYw6B0ThGFyEJ4CEAwQgSV51BkDYQhCIQJHgGp0gAGBFgCB55nAAC3HCbYEGEOBIHOBZhggZgagYIRIHYEoFCGMoSCKCJiEiFgjgaYZjjYGIJiKSI2CeBZiAgXgugyYxIgYNINmIaJaDiDpKEiag8g2Y5on4M4GkqGQWEaEZkgkJhKhEZBJC4ToTmSSBqFCFJkikNhUhXQpaFiFJlikbhPhcZZpC4GwqmYSYWGaGZmgmJhkhiZopjYboamGKY+HKGhmkmTh2CqZxZl4coeGeKY6HyHxmigbIuiCaBKBaBohmiCgOgKIhokoNoKgaKJqEaCIimkwwuiUKVyBiJk7m6HIiGGMqbCiSwqhaI4pmqComiOKBqiqNouioKpKj6JQsiqapOiuBoqnqZouiwaxahqOooiuSp+j+BpLEsFpGjGbILCaSoxGwSwuk6M5skgapQjSbIrDaVI15AWpYjSbYrG6T43G2a1Ui2bhLhaZo5m6C4mmSOJuiuNpujqYYrj6co6G6S5OnYLZvFuXpyj4b4rjqfI/G7aA7kCcBMBcBpBnCDAPAKQhwkwN1wjCbBHAiQpxCwVI7kVlJHBiRhwlwbzrHGbB/AeBpLlyFI/kmcoMiMJQvHKLIbCeSpyjyEwwkycxMk8LZMDMLIzC+S4LnyVw+kwYYsn8P5KHOPJoj+TnQl8NJSjMPJnEzmR9CMQpUnOSBvESVZ1g0ZwplWNYtHcXZXDWbYHESWA2C2Fxklkdgdh8aJXmGLYvGaBoME2RxylydxNlcdpcGGPZfHqXp3C2M4fIv3sD3ACMETAnALgJF+PAbgPh7jEHiFsXgNgxjyA4I8EoyR5CcFeCEY48huDPBqMsYYXBvg9GUPMDg/wiBjHoD0D4PRpD0G4NdcY8hoDZEqNcewHRHhlGyPYTofwujaHuB0Z4bQGh3C6O9ng9xvAJEqA0TIfgXiNHGPkDznxxD4E8F8To5x8iQGuKEdI+QvBvFSOuKotxYjpGGGYN4vR3j8A+A8Yo8R9jeHeMkeY/QPgsBoGcPonw3jdHuP4D4jxsgNH8F8V47R7D+E+L8eo+A/g/G+PwGYnx1j/D+FAAwAQfhoASAEL4lADiBAePEeowBcANAGGAOgCQhhDCMAoIIWAWgFHAMQDIghEBuAaEEbAPQChgHIB8QgUAxAQGEDgJgNAwgsBOIQJAbUpCoBoIoCAtAJiFGgMEBQwwqBjAWCEYAcwigoCgIAQBAQ==")
oDCOCX_Exontrol1:OnResizeControl := exChangePanels | exHideSplitter
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120627")
oDCOCX_Exontrol1:BodyEventBackColor := 0x1000000
oDCOCX_Exontrol1:ShowStatusEvent := false
oDCOCX_Exontrol1:[DefaultEventPadding,exPaddingAll] := 3
oDCOCX_Exontrol1:[Background,exScheduleCreateEventBackColor] := 0x1000000
oDCOCX_Exontrol1:[Background,exScheduleUpdateEventsBackColor] := 0x1000000
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120627 11:00:00"),SToD("20120627 12:30:00")):BodyBackColor := RGB(255,0,0)
var_Events:Add(SToD("20120627 11:30:00"),SToD("20120627 13:30:00")):BodyBackColor := RGB(0,255,0)
oDCOCX_Exontrol1:EndUpdate()
|
|
191
|
Is it possible to change the appearance of event's status using the EBN (office theme)
local var_Appearance as IAppearance
local var_Event,var_Event1 as IEvent
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exChangePanels | exHideSplitter
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BKYCg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpAWCYRDEMQ0AJCIzDJCIZBkHCPRjASQZUhmHIDTbIEBxfIMIxLE9IMwxfA8ax1GifI6hGSYDa0HAkABTVQRLL4aSDK6NaYmSL5DhkBokUpGKTpOhgATHMqqIzGURZNquEQ1DBbEI3BaUaw/CKRLAoahqVpqK4tS7MNa3XKkcxzD6eIypGBKAgmQoJDLRGIxTiYACxPQACzsEAKapKUZPRZVNYQJQlNRDLiEcrgOr4DxqO4aWbZViaDZVawlNy5bhtfaqGrfKYJYLrWCTbh0Tz9KzIJJwHbcKxjKrDczjEoSVwiAmSgcGmIxaggHBHFmFpoHEJwbg8FpammO5bEUaxbm6ZwDH+YI7EIQQQhKAYkkYdA6hyDI4ngGRIA8AwQgSV51BkDYQhCIQJHeHAkCAGBFgGR55m8CQBkONkYCEEgxGeBZJHQDgTgWFhFgyf4HmICByBqBRhmiAgmD+YggAIHIJmKSIhGMQJijiNgmgoYwYkoH4NCIWJaC6BhiiiZg2g4CR4moN4LmOWQGEKEAkCibgwg+vwiEeEQjFifhQhMIpZDoOoViUKJyFGExlDkGhXhcZIZGIXIWiUSIyGKFRmAkPhkheJYZC4bIYmaaYGGmF5mjmSh1hqJwZmIRYdieGZSH2GxnjmahbhoJx5nqAYhigOYaHOIAohiHhniKKBaDIZYjiiOZCgeJImnoEh/iWKJYk6FYmikehyhOJ4pBqCoZiQKY6gKHYIGmeoiiGKoqDqMoliwKh6FKM4riqOQOjeLYqhqYoxi6K5anKL4visWoSkGMYsDsCo5hKLIbCKS4jmyKp+kyM5qlsRpFiyLB7GKTY2i0Spuk6NItAsfpXjALY7hKXYIk6Wh2CmBphgqOgTjuYhIHachAlAECAg=")
var_Appearance:Add(2,"CP:1 0 0 1 0")
var_Appearance:Add(4,"gBFLBCJwBAEHhEJAEGg4BGoDg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpASLoJDCH4mSTHYxyHIMWwtDiBZgkCA4fiGEYnThKM5SdKsXABG6NErSdDAAoKRIVTjAcsVTicAo+R7TcYgLBNAQHKQAHZDQRKZpuFoRRKJNgDLYUEhqGCyYDseyZNj2GZYRDPVqzWAFFzrFSqLilaYpSh+bpfSRSVI3PakQz+LCNCzwEAKYoaRZDRZgdzUbItMYNBKsMQgO6QAwqNKYQjWVaaFgEYzJMa2LTiHSqQhrGqMQjnV5ZPgVzZKZZGVQ1LBOOZfEJ2XacSqeCyWEqnRryFpWRpfGXiX7EOY7HaePwDAQQhKAaEwZlCahyDKDBjm4a5JAiG5jgyDYhCKDZukYSAYgsLAzh0RBlBqBAkA4Ox+n+H5AAGDJWDWH5jFmdBQl8Z5yAGAZfngDZ6H9HIiACAhUCgMgPgSYAYA4EoDiEWBGBiAxhAIXAADITRzGIIA2AyAxYleCJhGiFgnggYg4iIEYImKKIqC6B4iliMg2DYIRolYIoLA2ExmDmDwNhiNg9g+Y44goPYMmGeJeEKD4hBMMJbDaTIYnYTg2mUOBaFOFZknkVhNhYZZJFIT4ViWWRElmFohmkYhehQJA4ESTg3A2WYuG2GwmmgWhuhyZwJjIcodGaeZmGANpnEMdhkAAJ5ZE4cYaieCZ2HeHhoGoEoIh4IRjESXg3iialFiQaJaE6Fokg2ahWhiJBpEgRociWaZYHqH4mmiehqiOKBAAqDJUDgTgaiyYYFiqapGiyK4rAqTosiQa14jKKxrGqPo6i8a46laPIwmuGB6juMBrnsEo9jCLB6jKTIwCyawmk2L4sGsQpDjObIrFAAA2E4U4WlyN4tlsfgWjebhLgaXY4waApqjoLorhSZY7C6a4KBGPBuhuQppjyIZrlKa48m8e5WBENwOHOIyNDAHAOBaQJwgwFwBgWDZziSaZCHAQ4jAeQoxBwGp/kUMQME8FZFDGLBDBaB4xmwcwXkacQcDMDpDE6HIjCiSYyhyHwuDocpMisL5MHKfIuBGTIylyZgWDgToziyYg7A6TJ8myTwO7KPZRDQLQTEYOp0g0AxKgQdBNDcQ5PHSPRHEeVQ1A0XxMlaNRdGsT4Hg4Q44m2WB2D2CxkgWNhNicZpYjaDYvGWW52l2PxqDsdz+meBBOGOIEcAdAPAnEcPIPAbx4C2H+MEd4XAHDxGEPEDgBh6jBDiDwEI4QFhvEOI8EYyR3i8EMPsZQcguCsBGMwOQMApj5GYEAPg8RtAADoDAFY9xpiAAQAggIA=")
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120627")
oDCOCX_Exontrol1:StatusEventColor := 0x2000000
oDCOCX_Exontrol1:BodyEventBackColor := 0x4000000
oDCOCX_Exontrol1:[Background,exScheduleCreateEventBackColor] := 0x1000000
oDCOCX_Exontrol1:[Background,exScheduleUpdateEventsBackColor] := 0x1000000
oDCOCX_Exontrol1:StatusEventSize := 6
oDCOCX_Exontrol1:[DefaultEventPadding,exPaddingAll] := 2
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120627 11:00:00"),SToD("20120627 12:30:00")):BodyBackColor := RGB(255,0,0)
var_Event := var_Events:Add(SToD("20120627 11:30:00"),SToD("20120627 13:30:00"))
var_Event:BodyBackColor := RGB(0,255,0)
var_Event:StatusColor := RGB(0,0,128)
var_Event:ExtraLabel := "Point"
var_Event1 := var_Events:Add(SToD("20120627 08:30:00"),SToD("20120627 11:45:00"))
var_Event1:StatusColor := RGB(255,0,255)
oDCOCX_Exontrol1:EndUpdate()
|
|
190
|
Does your control support subscript or superscript, in HTML captions
local var_Events as IEvents
oDCOCX_Exontrol1:BodyEventBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120620")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120620 09:00:00"),SToD("20120620 11:00:00")):ExtraLabel := "<sha ;;0>Event <b><font ;6><off 4>1"
var_Events:Add(SToD("20120620 11:00:00"),SToD("20120620 13:00:00")):ExtraLabel := "<sha ;;0>Event <b><font ;6><off 4>2"
var_Events:Add(SToD("20120620 13:00:00"),SToD("20120620 15:00:00")):ExtraLabel := "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1"
|
|
189
|
How can I hide the scheduler part of the control, so I can use the calendar panel only
oDCOCX_Exontrol1:OnResizeControl := exHideSplitter | exResizePanelRight
|
|
188
|
I see how I can specify a non-working day pattern for weekends, but how can I specify non-working days for holidays
local var_Calendar as ICalendar
local var_NonworkingTimes as INonworkingTimes
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:[SelectDate,SToD("20120528")] := true
var_Calendar:Select(exSelectWeek)
var_Calendar:[SelectDate,SToD("20120605")] := false
var_Calendar:Select(exSelectToggle | exSelectWeek)
var_Calendar:[SelectDate,SToD("20120612")] := false
var_Calendar:Select(exSelectToggle | exSelectWeek)
var_NonworkingTimes := oDCOCX_Exontrol1:NonworkingTimes
var_NonworkingTimes:Add("month(value) = 5","00:00","24:00",-1)
var_NonworkingTimes:Add("value in (#6/5/2012#,#6/7/2012#)","00:00","24:00",-1)
|
|
187
|
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exDisableBoth
oDCOCX_Exontrol1:[ScrollPartVisible,exVScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,0x2 | ,exExtentThumbPart] := true
oDCOCX_Exontrol1:ScrollWidth := 4
oDCOCX_Exontrol1:[Background,exVSBack] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exVSThumb] := RGB(128,128,128)
oDCOCX_Exontrol1:ScrollHeight := 4
oDCOCX_Exontrol1:[Background,exHSBack] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exHSThumb] := oDCOCX_Exontrol1:[Background,exVSThumb]
oDCOCX_Exontrol1:[Background,exScrollSizeGrip] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:EndUpdate()
|
|
186
|
How can I show contiguously the days, in a single row
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:[SelectDate,SToD("20120520")] := true
var_Calendar:Select(exSelectWeek)
var_Calendar:[SelectDate,SToD("20120527")] := false
var_Calendar:Select(exSelectToggle | exSelectWeek)
oDCOCX_Exontrol1:ShowViewCompact := exViewSingleRow
|
|
185
|
How can I show contiguously the days
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:[SelectDate,SToD("20120520")] := true
var_Calendar:Select(exSelectWeek)
var_Calendar:[SelectDate,SToD("20120527")] := false
var_Calendar:Select(exSelectToggle | exSelectWeek)
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
|
|
184
|
How can I display the time in european format with no usage of AM/PM
local var_Calendar as ICalendar
local var_Events as IEvents
local var_TimeScale as ITimeScale
var_TimeScale := oDCOCX_Exontrol1:TimeScales:[Item,0]
var_TimeScale:MajorTimeLabel := "<%hh%>:<%nn%>"
var_TimeScale:Width := 32
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010611")
var_Calendar:ShortTimeFormat := "<%h%>:<%nn%>"
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010611 10:00:00"),SToD("20010611 13:15:00"))
var_Events:Add(SToD("20010611 10:30:00"),SToD("20010611 14:30:00"))
|
|
183
|
Is it possible to zoom the schedule component using a key and scrolling the wheel (not pressing it and moving the mouse)
oDCOCX_Exontrol1:AllowResizeSchedule := exCTRLKey | exMiddleClick
oDCOCX_Exontrol1:AllowMoveSchedule := exMiddleClick
|
|
182
|
How can I change the format of the date being displayed in the calendar panel
oDCOCX_Exontrol1:Calendar:HeaderDayLabel := "<sha><%mmmm%></sha> <sha><fgcolor=FF0000><%yyyy%></fgcolor></sha>"
|
|
181
|
How can I display the Year in Thai, Buddhist, Korean format
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:FirstWeekDay := var_Calendar:LocFirstWeekDay
var_Calendar:MonthNames := var_Calendar:LocMonthNames
var_Calendar:WeekDays := var_Calendar:LocWeekDays
var_Calendar:AMPM := var_Calendar:LocAMPM
var_Calendar:HeaderDayLabel := "<%mmmm%> <fgcolor=FF0000><%loc_yyyy%>"
oDCOCX_Exontrol1:HeaderDayLongLabel := "<|><%dddd%>, <%mmmm%> <%d%>, <fgcolor=FF0000><%loc_yyyy%><|><%dddd%>,<%mmmm%> <%d%>,<fgcolor=FF0000><%loc_yyyy%><|><%dddd%>, <%mmmm%> <%d%>,`<fgcolor=FF0000><%loc_yy%><|><%dddd%>, <%mmmm%> <%d%><|><%dddd%>, <%m3%> <%d%><|><%dddd%>, <%d%><|><%dddd%><|><%d3%><|><%d2%><|><%d1%>"
|
|
180
|
May I specify a fixed width for my dates, so user can not resize it
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exChangePanels | exResizePanelRight
oDCOCX_Exontrol1:AllowResizeSchedule := exDisallow
oDCOCX_Exontrol1:AllowMoveSchedule := exMiddleClick
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:DayViewWidth := 96
oDCOCX_Exontrol1:DayViewHeight := 256
oDCOCX_Exontrol1:EndUpdate()
|
|
179
|
How can I change the format of date being displayed on the header
oDCOCX_Exontrol1:HeaderDayLongLabel := "<|><%dddd%>, <%d%> <%mmmm%>, <%yyyy%><|><%dddd%>, <%d%> <%mmmm%>, <%yyyy%><|><%dddd%>, <%d%> <%mmmm%>,`<%yy%><|><%dddd%>, <%d%> <%mmmm%><|><%dddd%>, <%d%> <%m3%><|><%dddd%>, <%d%><|><%dddd%><|><%d3%><|><%d2%><|><%d1%>"
|
|
178
|
Is there any notifications for exchanging the panels at runtime
METHOD OCX_Exontrol1LayoutEndChanging(Operation) CLASS MainDialog
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
OutputDebugString(String2Psz( "End exLayoutExchangePanels(16)" ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
METHOD OCX_Exontrol1LayoutStartChanging(Operation) CLASS MainDialog
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
OutputDebugString(String2Psz( "Start exLayoutExchangePanels(16)" ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
oDCOCX_Exontrol1:AllowExchangePanels := exLeftClick
oDCOCX_Exontrol1:AllowCreateEvent := exDisallow
|
|
177
|
How can I handle the All-Day events only
local var_Calendar as ICalendar
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit
oDCOCX_Exontrol1:ShowAllDayHeader := true
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:[SelectDate,SToD("20120508")] := true
var_Calendar:Select(exSelectWeek)
var_Calendar:[SelectDate,SToD("20120515")] := false
var_Calendar:Select(exSelectToggle | exSelectWeek)
oDCOCX_Exontrol1:TimeScales:[Item,0]:Visible := false
oDCOCX_Exontrol1:Events:Add(SToD("20120508"),SToD("20120517")):AllDayEvent := true
oDCOCX_Exontrol1:EndUpdate()
|
|
176
|
Is it possible to show the All-Day events with EBN including the next/prev signs (2)
local var_Calendar as ICalendar
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit
oDCOCX_Exontrol1:ShowAllDayHeader := true
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:[SelectDate,SToD("20120508")] := true
var_Calendar:Select(exSelectWeek)
var_Calendar:[SelectDate,SToD("20120515")] := false
var_Calendar:Select(exSelectToggle | exSelectWeek)
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BbkMQAAYAQGKIYBkAKBQAGaAoDDcOILQiMQzjTBMKgBBCLIxiGK4DhiF4aRSBMIwYAAYhyG4BIRGcYJEDMOQzR4MICSBKkMhlDiPY5mUAJEiSJg3TDQlzpAoSGoeUhGTZnQaQASXJqKZ6kegoEh4MopTTHQLRUB8EyTDKnaapSJpEDINQlWTZciDKKFUQTNi3KxraKqbjqO47VJKEpSZBMXRhBIYZCueZZXgPBY5YhIE64BSeASoACDZzoaAwTrOAwUZZFVg2DSOGSBRzQMKrCZKagnFYDVzleYxLjdR47Qy1Ih2GA7QqubYkUTmOjgBaoAYxQaaLx0OS5Rj4NAwZLFXI1eAGd6BDLhLz4XAOHxHjmAZvGOWoeG8PhBiMGIMGOQxZCQOBpGUG4NncEIdB8MxLhSbpRnMIIIEkQJSGMOgdE4RhfAwJZtAwEIEleeQZA2EIQiECR2ludB8BgRYMAeKYDByB4DG5F4hBgTgWgUYYIFIGoFmGOBlAmBJMmMQJwggYg4goJIJmIaImCWCpigiLgTgeYQYjYMoKiMOIyDSCIinQDggg2YxonYNYNGOEACDuD4jkifhFg4IQYkCW4RiQSQ2ECEhjiiRhHhOJQ4jYQYQmSSRmFOFZlCkUhehMJZJC4VYYmWaYGFqF5ljkQhChcZh5jYKoZiYSY6D2HAmgmVhWhqJYJkYeoLieCYyHuHInEmSoAh8Zgplof4SA2OQqgKIZPAmBgciOYYaEIHYkmQFAEIC")
oDCOCX_Exontrol1:VisualAppearance:Add(2,"gBFLBCJwBAEHhEJAEGg4BVMIQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxjOK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpEhyKo+CTIAySXJsdw3IyNAIhEB4fgmM4DP7UIAVC78aRABCESgNEwzULUchlDDICJQSQRGzHDSKYDFCCaKgOTI6kgicpJUt6PBtaovKoWOZBcJ3Xjed6vBgeASpQbEL6wDCbfrjB6KY5eeDXXSkAkB")
oDCOCX_Exontrol1:VisualAppearance:Add(3,"gBFLBCJwBAEHhEJAEGg4BVUIQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxjOK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpEhyKo+CTIAySXJsZxpHKaAIhEB4fgmRgAP7UNQVFLkEgRBIoDRMM5DVLIZQxSAiUIkERtRQ1CqBRQhGioDoyOgABhFZSUPKlIztO45DwbO56RrlWzONA8FzXdgDYYLQjAcJwXA7awrAZ8P7iGBZBbtdQCgIA==")
oDCOCX_Exontrol1:BodyEventBackColor := 0x1000000
oDCOCX_Exontrol1:[Background,exScheduleEventContinueNextWeek] := 0x2000000
oDCOCX_Exontrol1:[Background,exScheduleEventContinuePrevWeek] := 0x3000000
oDCOCX_Exontrol1:HeaderAllDayEventHeight := -14
oDCOCX_Exontrol1:Events:Add(SToD("20120508"),SToD("20120517")):AllDayEvent := true
oDCOCX_Exontrol1:EndUpdate()
|
|
175
|
How can I select programatically two weeks
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:[SelectDate,SToD("20120508")] := true
var_Calendar:Select(exSelectWeek)
var_Calendar:[SelectDate,SToD("20120515")] := false
var_Calendar:Select(exSelectToggle | exSelectWeek)
|
|
174
|
Is it possible to show the All-Day events with EBN including the next/prev signs (1)
local var_Calendar as ICalendar
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
oDCOCX_Exontrol1:ShowAllDayHeader := true
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:FirstWeekDay := exMonday
var_Calendar:[SelectDate,SToD("20120508")] := true
var_Calendar:Select(exSelectWeek)
var_Calendar:[SelectDate,SToD("20120515")] := false
var_Calendar:Select(exSelectToggle | exSelectWeek)
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BbkMQAAYAQGKIYBkAKBQAGaAoDDcOILQiMQzjTBMKgBBCLIxiGK4DhiF4aRSBMIwYAAYhyG4BIRGcYJEDMOQzR4MICSBKkMhlDiPY5mUAJEiSJg3TDQlzpAoSGoeUhGTZnQaQASXJqKZ6kegoEh4MopTTHQLRUB8EyTDKnaapSJpEDINQlWTZciDKKFUQTNi3KxraKqbjqO47VJKEpSZBMXRhBIYZCueZZXgPBY5YhIE64BSeASoACDZzoaAwTrOAwUZZFVg2DSOGSBRzQMKrCZKagnFYDVzleYxLjdR47Qy1Ih2GA7QqubYkUTmOjgBaoAYxQaaLx0OS5Rj4NAwZLFXI1eAGd6BDLhLz4XAOHxHjmAZvGOWoeG8PhBiMGIMGOQxZCQOBpGUG4NncEIdB8MxLhSbpRnMIIIEkQJSGMOgdE4RhfAwJZtAwEIEleeQZA2EIQiECR2ludB8BgRYMAeKYDByB4DG5F4hBgTgWgUYYIFIGoFmGOBlAmBJMmMQJwggYg4goJIJmIaImCWCpigiLgTgeYQYjYMoKiMOIyDSCIinQDggg2YxonYNYNGOEACDuD4jkifhFg4IQYkCW4RiQSQ2ECEhjiiRhHhOJQ4jYQYQmSSRmFOFZlCkUhehMJZJC4VYYmWaYGFqF5ljkQhChcZh5jYKoZiYSY6D2HAmgmVhWhqJYJkYeoLieCYyHuHInEmSoAh8Zgplof4SA2OQqgKIZPAmBgciOYYaEIHYkmQFAEIC")
oDCOCX_Exontrol1:VisualAppearance:Add(2,"gBFLBCJwBAEHhEJAEGg4BKMMQAAYAQGKIYBkAKBQAGaAoDDUNgwQwAAxDGKkEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpEhyKo+CTIA4SXJsdxpI4EIRCSL6MgNf5PABTb7zTSgYANF6WRZgWgpTjcMJHTpYFIwHRdQwHLqoagqKZJAqMABQGiYZyHKcwMYgBZXJBEbbMNBtBIUIRtaxZBBiFzgUZYEBnEbDN4YbapMhyLI2OZBcCOJQ4SCoW4GJ49J7KXgYZiHOLcfjcLovLq5fiOQ5CV5ZXROM6sQyzIKWaCzLL5PjKHInWrPNa3DJtDyXJzUNY9GScG6HBLhWB0czzXIuO4djqXg4jUOo9j8N4Zk6YoeA+bZKhcV49kyaAllODhPC8d5bi+WJ6H0fhvHcExIHgQB4nuHpOj4Y4zioeQfDePZRGcHI3lGIh9h4JwhkodQckecY9G+WpHDmUAdAeNwCBEfRcGaIZ/G2D52gWfR0iGRhFg8Y5iBYTQBICA=")
oDCOCX_Exontrol1:VisualAppearance:Add(3,"gBFLBCJwBAEHhEJAEGg4BgsHQAAYAQGKIYBkAKBQAGaAoDDUNgwQwAAxDGKkEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpEhyKo+CTIA4SXJsZxpI6EQQhEJIfo2Az/VAAFQPfLNKhgAyXZZFWBaCoaEgwUhVMhUVAdGR1BKvKjqKoZcomCRQGiYZyHKcwMYgBZRRBEbbMNBtBIULasWjQYhdYI7WDTdR4XhmGDkPBtcbbPDcUpBBSLOAjSSOExzILhSrFVyXVzTXL5XDGMg7Wa5foFIDmPRtVbWNydLyvICOJK2eZOExrHrhWrPMZaRpnUyXJ6pcBvfA4Zi7QZlWjPOR2aoNCZbjuXpyjsPIahmYJ/keVR0HwPYsnIXQ4mSZ50jwXIfC+HxnmmcZ2HuCAOn+P43lSUZ1neXxeF4L4bmgeoeCcCZEHcXxIAGLBlBuBpphsdgfGaNB0B6WwXjoARrE+dxVkYageAgHgUD+XJWm2U4GliNhJhIQBAICA==")
oDCOCX_Exontrol1:BodyEventBackColor := 0x1000000
oDCOCX_Exontrol1:[Background,exScheduleEventContinueNextWeek] := 0x2000000
oDCOCX_Exontrol1:[Background,exScheduleEventContinuePrevWeek] := 0x3000000
oDCOCX_Exontrol1:HeaderAllDayEventHeight := -20
oDCOCX_Exontrol1:Events:Add(SToD("20120508"),SToD("20120517")):AllDayEvent := true
oDCOCX_Exontrol1:EndUpdate()
|
|
173
|
Can I make it zoom in using CTRL-MouseWheel instead of using the middle button
oDCOCX_Exontrol1:AllowResizeSchedule := exCTRLKey | exMiddleClick
|
|
172
|
It is by default not possible, to simply scroll the component with the mouse wheel. How do I make it so
oDCOCX_Exontrol1:AllowMoveSchedule := exMiddleClick
|
|
171
|
Can I get and set the width of the time bar
oDCOCX_Exontrol1:TimeScales:[Item,0]:Width := 48
|
|
170
|
How do I select the current year
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
oDCOCX_Exontrol1:Calendar:Select(exSelectYear)
|
|
169
|
How do I select the current week day
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:Calendar:Select(exSelectWeekDay)
|
|
168
|
How do I select the current week
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:Calendar:Select(exSelectWeek)
|
|
167
|
How can I restore the layout of the panels, when user changes the width and the alignment of the panels
METHOD OCX_Exontrol1LayoutEndChanging(Operation) CLASS MainDialog
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
OutputDebugString(String2Psz( "End Operation " ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "Layout " ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:OnResizeControl) ))
OutputDebugString(String2Psz( "PaneWidth(False)" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[PaneWidth,false]) ))
RETURN NIL
METHOD OCX_Exontrol1LayoutStartChanging(Operation) CLASS MainDialog
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
OutputDebugString(String2Psz( "Start Operation " ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "Layout " ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:OnResizeControl) ))
OutputDebugString(String2Psz( "PaneWidth(False)" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[PaneWidth,false]) ))
RETURN NIL
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( "Layout " ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:OnResizeControl) ))
OutputDebugString(String2Psz( "PaneWidth(False)" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[PaneWidth,false]) ))
RETURN NIL
|
|
166
|
Is it possibly to set the column width of the group/person using the api
local var_Events as IEvents
local var_Group,var_Group1 as IGroup
local var_Groups as IGroups
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:DisplayGroupingButton := true
oDCOCX_Exontrol1:ShowGroupingEvents := true
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
var_Groups := oDCOCX_Exontrol1:Groups
var_Group := var_Groups:Add(1,"Group 1")
var_Group:Title := "First"
var_Group:Visible := true
var_Group1 := var_Groups:Add(2,"Group 2")
var_Group1:Title := "Second"
var_Group1:Visible := true
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00")):GroupID := 1
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00")):GroupID := 2
oDCOCX_Exontrol1:Groups:[Item,1]:Width := 24
oDCOCX_Exontrol1:EndUpdate()
|
|
165
|
When viewing the schedule by week or month and the month ends during the week (July 31, Tuesday -> August 1, Wednesday), the days continue down as a new week 'row'. When there is a change in month, is it possible to still show the full week without that break (compact)
local var_Calendar as ICalendar
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120523")
var_Calendar:Selection := "month(value) in (5,6)"
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:EndUpdate()
|
|
164
|
I want to change the default event tooltip. How can I do that
oDCOCX_Exontrol1:DefaultEventTooltip := "<b>BEGIN:</b> <%=%1%><br><b>END:</b>: <%=%2%><br><b>LENGTH:</b> <%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')%>"
|
|
163
|
How can I select the entire week for a specified date
local var_Calendar as ICalendar
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:NonworkingDays := 0
var_Calendar:ShowNonMonthDays := false
var_Calendar:FirstWeekDay := exSunday
var_Calendar:Selection := SToD("20120305")
var_Calendar:Selection := "(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(#3/5/2012#)-1)/7))"
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
oDCOCX_Exontrol1:EndUpdate()
|
|
162
|
I have noticed that I can drag bars from All-Day header to time-zone and reverse. Is it possible to prevent that
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
oDCOCX_Exontrol1:ShowAllDayHeader := true
oDCOCX_Exontrol1:AllowUpdateAllDayFlag := false
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120523")
oDCOCX_Exontrol1:Calendar:Selection := "value in (#5/23/2012#,#5/24/2012#,#5/25/2012#)"
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00")):ExtraLabel := "<sha>dentist"
var_Events:Add(SToD("20120524"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120523"),SToD("20120524")):AllDayEvent := true
oDCOCX_Exontrol1:SelectEventStyle := exNoLines
oDCOCX_Exontrol1:ShowSelectEvent := false
oDCOCX_Exontrol1:EndUpdate()
|
|
161
|
When an all-day event stretches over multiple days (ex. Monday thru Friday), is it possible to have that display as a continuous bar across those days instead of separate bars on each day
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
oDCOCX_Exontrol1:ShowAllDayHeader := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120523")
oDCOCX_Exontrol1:Calendar:Selection := "value in (#5/23/2012#,#5/24/2012#,#5/25/2012#)"
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00")):ExtraLabel := "<sha>dentist"
var_Events:Add(SToD("20120524"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120523"),SToD("20120524")):AllDayEvent := true
oDCOCX_Exontrol1:SelectEventStyle := exNoLines
oDCOCX_Exontrol1:ShowSelectEvent := false
oDCOCX_Exontrol1:EndUpdate()
|
|
160
|
If I double click to a scheduled event and enter text, how can I read this newly entered text (i.e. what is its corresponding field)
METHOD OCX_Exontrol1LayoutEndChanging(Operation) CLASS MainDialog
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[EventFromPoint,-1,-1]) ))
RETURN NIL
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00")):ExtraLabel := "editable"
oDCOCX_Exontrol1:SelectEventStyle := exNoLines
oDCOCX_Exontrol1:ShowSelectEvent := false
oDCOCX_Exontrol1:EndUpdate()
|
|
159
|
Is it possible to show the date's header with a shadow
oDCOCX_Exontrol1:HeaderDayLongLabel := "<sha><%dddd%>, <%mmmm%> <%d%>, <%yyyy%>"
oDCOCX_Exontrol1:Calendar:OnSelectDate := exEnsureVisibleDate
oDCOCX_Exontrol1:AllowResizeSchedule := exDisallow
|
|
158
|
We need to highlight a day for example no booking/disabling for that day, is the timezone good choice (method 3)
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120627")
var_Calendar:Selection := "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"
oDCOCX_Exontrol1:AllowMultiDaysEvent := false
oDCOCX_Exontrol1:NonworkingPatterns:Add(1,exPatternSolid):Pattern:Color := RGB(240,240,240)
oDCOCX_Exontrol1:NonworkingTimes:Add("value in (#6/27/2012#)","00:00","24:00",1)
oDCOCX_Exontrol1:ShowNonworkingTime := exShowNonworkingTimeBack
oDCOCX_Exontrol1:Calendar:DisableZoneFormat := "value in (#6/27/2012#)"
|
|
157
|
We need to highlight a day for example no booking for that day, is the timezone good choice (method 2)
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120627")
var_Calendar:Selection := "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"
oDCOCX_Exontrol1:NonworkingPatterns:Add(1,exPatternSolid):Pattern:Color := RGB(240,240,240)
oDCOCX_Exontrol1:NonworkingTimes:Add("value in (#6/27/2012#)","00:00","24:00",1)
oDCOCX_Exontrol1:ShowNonworkingTime := exShowNonworkingTimeBack
|
|
156
|
We need to highlight a day for example no booking for that day, is the timezone good choice (method 1)
local var_Calendar as ICalendar
local var_MarkZone as IMarkZone
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120627")
var_Calendar:Selection := "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"
var_MarkZone := oDCOCX_Exontrol1:MarkZones:Add("zone",SToD("20120627"),SToD("20120628"))
var_MarkZone:BackColor := RGB(240,240,240)
var_MarkZone:Pattern:Type := exPatternEmpty
oDCOCX_Exontrol1:ShowMarkZone := exShowMarkZonesBack
|
|
155
|
Is is possible to change the background color for a specific day
local var_Calendar as ICalendar
local var_MarkZone as IMarkZone
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120627")
var_Calendar:Selection := "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"
var_MarkZone := oDCOCX_Exontrol1:MarkZones:Add("zone",SToD("20120627"),SToD("20120628"))
var_MarkZone:BackColor := RGB(240,240,240)
var_MarkZone:Pattern:Type := exPatternEmpty
oDCOCX_Exontrol1:ShowMarkZone := exShowMarkZonesBack
|
|
154
|
I want to know how can I call a user define form when editing a time slot
METHOD OCX_Exontrol1LayoutEndChanging(Operation) CLASS MainDialog
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
OutputDebugString(String2Psz( "End exScheduleResize(5)" ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
METHOD OCX_Exontrol1LayoutStartChanging(Operation) CLASS MainDialog
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
OutputDebugString(String2Psz( "Start exScheduleResize(5)" ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:SingleSel := true
var_Calendar:OnSelectDate := exEnsureVisibleDate
oDCOCX_Exontrol1:ClipToSel := true
oDCOCX_Exontrol1:AllowMoveSchedule := exDisallow
oDCOCX_Exontrol1:AllowMoveGroup := exDisallow
oDCOCX_Exontrol1:AllowResizeSchedule := exLeftClick
oDCOCX_Exontrol1:AllowCreateEvent := exDisallow
|
|
153
|
Can we lock the scroll bars so that it only scrolls within the selected date
local var_Calendar as ICalendar
local var_Events as IEvents
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010601")
var_Calendar:Selection := "value in (#6/11/2001#,#6/12/2001#)"
var_Calendar:SingleSel := true
var_Calendar:OnSelectDate := exEnsureVisibleDate
oDCOCX_Exontrol1:ClipToSel := true
oDCOCX_Exontrol1:DayViewWidth := -1
oDCOCX_Exontrol1:DayViewHeight := 512
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010611 10:00:00"),SToD("20010611 13:00:00"))
var_Events:Add(SToD("20010612 10:00:00"),SToD("20010612 13:00:00"))
|
|
152
|
Is it possible to specify the dates to be printed to a single page
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Print as IExPrint
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010601")
var_Calendar:Selection := "value in (#6/11/2001#,#6/12/2001#)"
oDCOCX_Exontrol1:DayViewWidth := 116
oDCOCX_Exontrol1:DayViewHeight := 116
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010611 10:00:00"),SToD("20010611 13:00:00"))
var_Events:Add(SToD("20010612 10:00:00"),SToD("20010612 13:00:00"))
// Generate Source for 'ExPrint 1.0 Control Library(ExPrint.dll)' server from Tools\Automation Server...
var_Print := IExPrint{"Exontrol.Print"}
var_Print:Options := "Range=month(value)=6;FitToPage=On"
var_Print:PrintExt := oDCOCX_Exontrol1
var_Print:Preview()
|
|
151
|
Is it possible to specify the dates to be printed
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Print as IExPrint
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010601")
var_Calendar:Selection := "value in (#6/11/2001#,#6/12/2001#)"
oDCOCX_Exontrol1:DayViewWidth := 116
oDCOCX_Exontrol1:DayViewHeight := 116
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010611 10:00:00"),SToD("20010611 13:00:00"))
var_Events:Add(SToD("20010612 10:00:00"),SToD("20010612 13:00:00"))
// Generate Source for 'ExPrint 1.0 Control Library(ExPrint.dll)' server from Tools\Automation Server...
var_Print := IExPrint{"Exontrol.Print"}
var_Print:Options := "Range=month(value)=6"
var_Print:PrintExt := oDCOCX_Exontrol1
var_Print:Preview()
|
|
150
|
Does your control support Fit-To-Page, while printing
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Print as IExPrint
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010601")
var_Calendar:Selection := "value in (#6/11/2001#,#6/12/2001#)"
oDCOCX_Exontrol1:DayViewWidth := 512
oDCOCX_Exontrol1:DayViewHeight := 512
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010611 10:00:00"),SToD("20010611 13:00:00"))
var_Events:Add(SToD("20010612 10:00:00"),SToD("20010612 13:00:00"))
// Generate Source for 'ExPrint 1.0 Control Library(ExPrint.dll)' server from Tools\Automation Server...
var_Print := IExPrint{"Exontrol.Print"}
var_Print:Options := "FitToPage=On"
var_Print:PrintExt := oDCOCX_Exontrol1
var_Print:Preview()
|
|
149
|
Does your control support Print and Print-Preview
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Print as IExPrint
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010601")
var_Calendar:Selection := "value in (#6/11/2001#,#6/12/2001#)"
oDCOCX_Exontrol1:DayViewWidth := 512
oDCOCX_Exontrol1:DayViewHeight := 512
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010611 10:00:00"),SToD("20010611 13:00:00"))
var_Events:Add(SToD("20010612 10:00:00"),SToD("20010612 13:00:00"))
// Generate Source for 'ExPrint 1.0 Control Library(ExPrint.dll)' server from Tools\Automation Server...
var_Print := IExPrint{"Exontrol.Print"}
var_Print:PrintExt := oDCOCX_Exontrol1
var_Print:Preview()
|
|
148
|
How can I specify the height (time slot) of the day to be larger
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ClipToSel := true
oDCOCX_Exontrol1:DayViewHeight := 1024
oDCOCX_Exontrol1:DayViewWidth := -1
oDCOCX_Exontrol1:TimeScales:[Item,0]:MinorTimeRuler := "00:05"
oDCOCX_Exontrol1:EndUpdate()
|
|
147
|
How can I prevent resizing the schedule view, when a new date is selected
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:OnSelectDate := exEnsureVisibleDate
var_Calendar:Selection := SToD("20010110")
var_Calendar:SingleSel := true
oDCOCX_Exontrol1:DayViewWidth := 48
|
|
146
|
How do I get notified once the user moves an event
METHOD OCX_Exontrol1UpdateEvent(Ev) CLASS MainDialog
// UpdateEvent event - Notifies your application once the event changes the starting or ending margins.
OutputDebugString(String2Psz( "UpdateEvent" ))
OutputDebugString(String2Psz( AsString(Ev) ))
RETURN NIL
local var_Event,var_Event1 as IEvent
local var_Events as IEvents
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%256%><br><%=%5%>"
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
var_Events := oDCOCX_Exontrol1:Events
var_Event := var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
var_Event:Editable := exEditCaption
var_Event:Caption := "your caption"
var_Event1 := var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00"))
var_Event1:Editable := exEditCaption
var_Event1:Caption := "other caption"
|
|
145
|
Can You give me an example for the event handler when a user double clicks an appointment
METHOD OCX_Exontrol1DblClick(Shift,X,Y) CLASS MainDialog
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
local e as USUAL
e := oDCOCX_Exontrol1:[EventFromPoint,-1,-1]
OutputDebugString(String2Psz( "Start:" ))
OutputDebugString(String2Psz( AsString(e) ))
OutputDebugString(String2Psz( "End:" ))
OutputDebugString(String2Psz( AsString(e) ))
RETURN NIL
local var_Calendar as ICalendar
local var_Events as IEvents
oDCOCX_Exontrol1:AllowEditEvent := exDisallow
oDCOCX_Exontrol1:AllowToggleSchedule := exDisallow
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010601")
var_Calendar:Selection := "value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)"
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010611 10:00:00"),SToD("20010611 13:00:00"))
var_Events:Add(SToD("20010612 10:00:00"),SToD("20010612 13:00:00"))
|
|
144
|
Nothing is shown in the schedule view, if I use the Selection property. What am I doing wrong
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010601")
var_Calendar:Selection := "value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)"
|
|
143
|
Is it possible to lock a date/day, so no events can be created, moved, and so on
local var_Calendar as ICalendar
local var_Events as IEvents
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010601")
var_Calendar:Selection := "value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)"
var_Calendar:DisableZoneFormat := "value = #6/12/2001#"
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010611 10:00:00"),SToD("20010611 13:00:00"))
var_Events:Add(SToD("20010612 10:00:00"),SToD("20010612 13:00:00"))
|
|
142
|
How can I show the grid lines for minor and major rules in the schedule view
oDCOCX_Exontrol1:[Background,exScheduleMajorTimeScaleStyle] := RGB(0,0,0)
oDCOCX_Exontrol1:[Background,exScheduleMajorTimeRulerColor] := RGB(192,192,192)
oDCOCX_Exontrol1:[Background,exScheduleTimeScaleMajorRulerStyle] := RGB(0,0,0)
oDCOCX_Exontrol1:[Background,exScheduleTimeScaleMajorRulerColor] := RGB(192,192,192)
oDCOCX_Exontrol1:[Background,exScheduleMinorTimeScaleStyle] := RGB(3,0,0)
oDCOCX_Exontrol1:[Background,exScheduleTimeScaleMinorRulerStyle] := RGB(3,0,0)
|
|
141
|
Is it possible to show the grid lines for minor rulers too in the schedule view
oDCOCX_Exontrol1:[Background,exScheduleMinorTimeScaleStyle] := RGB(3,0,0)
|
|
140
|
How can I change the style and colors to show the grid lines
oDCOCX_Exontrol1:[Background,exScheduleMajorTimeScaleStyle] := RGB(48,0,0)
oDCOCX_Exontrol1:[Background,exScheduleMajorTimeRulerColor] := RGB(255,0,0)
oDCOCX_Exontrol1:[Background,exScheduleTimeScaleMajorRulerStyle] := RGB(3,0,0)
oDCOCX_Exontrol1:[Background,exScheduleTimeScaleMajorRulerColor] := RGB(255,0,0)
|
|
139
|
How can I show a solid line rather than dot lines in the schedule view
oDCOCX_Exontrol1:[Background,exScheduleMajorTimeScaleStyle] := RGB(48,0,0)
oDCOCX_Exontrol1:[Background,exScheduleMajorTimeRulerColor] := RGB(0,0,0)
|
|
138
|
Is it possible to hide or change the lines in the schedule view
oDCOCX_Exontrol1:[Background,exScheduleMajorTimeScaleStyle] := -1
|
|
137
|
Is there a possiblity to lock an event, so it can't be moved or edited
local var_Event as IEvent
local var_Events as IEvents
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120627")
var_Events := oDCOCX_Exontrol1:Events
var_Event := var_Events:Add(SToD("20120627 10:00:00"),SToD("20120627 11:30:00"))
var_Event:BodyPattern:Type := exPatternBDiagonal
var_Event:Movable := false
var_Event:Resizable := exNoResizable
var_Event:Selectable := false
var_Event:Editable := exNoEditable
var_Event:ExtraLabel := "locked"
var_Events:Add(SToD("20120627 13:30:00"),SToD("20120627 15:30:00"))
|
|
136
|
Is it possible to load a PNG file on the control's background ( /com only )
oDCOCX_Exontrol1:Template := "Picture = LoadPicture(`c:\exontrol\images\card.png`)"
|
|
135
|
What is the Event.UserData property used for
local var_Events as IEvents
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120627")
oDCOCX_Exontrol1:DefaultEventTooltip := "Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')%><b><%=(len(%6) ? `<br>UserData: `+ %6 : ``)%></b>"
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120627 11:00:00"),SToD("20120627 12:30:00")):UserData := "Any extra data associated with the event"
var_Events:Add(SToD("20120627 11:30:00"),SToD("20120627 13:30:00"))
|
|
134
|
Is there also an event for when a user selects another month in the date-picker control
METHOD OCX_Exontrol1LayoutEndChanging(Operation) CLASS MainDialog
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
OutputDebugString(String2Psz( "End exCalendarDateChange(3)" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "Currently browsing date:" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Calendar:Date) ))
RETURN NIL
METHOD OCX_Exontrol1LayoutStartChanging(Operation) CLASS MainDialog
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
OutputDebugString(String2Psz( "Start exCalendarDateChange(3)" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "Previously browsing date:" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Calendar:Date) ))
RETURN NIL
|
|
133
|
How can I display the time-zone behind or back (method 2)
local var_MarkZone as IMarkZone
local var_Pattern as IPattern
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120627")
var_MarkZone := oDCOCX_Exontrol1:MarkZones:Add("zone",SToD("20120627 10:30:00"),SToD("20120627 13:00:00"))
var_MarkZone:LongLabel := "zone"
var_Pattern := var_MarkZone:Pattern
var_Pattern:Type := exPatternBDiagonal
var_Pattern:Color := RGB(40,40,40)
oDCOCX_Exontrol1:ShowMarkZone := exShowMarkZonesSemi
oDCOCX_Exontrol1:Events:Add(SToD("20120627 11:00:00"),SToD("20120627 12:30:00"))
|
|
132
|
How can I display the time-zone behind or back (method 1)
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120627")
oDCOCX_Exontrol1:MarkZones:Add("zone",SToD("20120627 10:30:00"),SToD("20120627 13:00:00")):LongLabel := "zone"
oDCOCX_Exontrol1:ShowMarkZone := exShowMarkZonesBack
oDCOCX_Exontrol1:Events:Add(SToD("20120627 11:00:00"),SToD("20120627 12:30:00"))
|
|
131
|
How can I add a time-zone
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120627")
oDCOCX_Exontrol1:MarkZones:Add("zone",SToD("20120627 10:30:00"),SToD("20120627 13:00:00")):LongLabel := "zone"
|
|
130
|
How can I specify a larger height for the timer, or it is possible to make it bigger
local var_Appearance as IAppearance
local var_MarkTime,var_MarkTime1 as IMarkTime
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BC0MQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDGKUEwsACEIrjKCYVgOHYYQjGMZwHIUIhkGoSZKlCIRVDCKYJSzLcZAFIMRwSBiEQTmaa4WiKIgIQiUBomGahajkMoYZCYKKSCI2S4aDZCIoTPLMagxC5GJCnSJnITJCpdV7XVgWHYVSzDM6yEScZTkFqubZsW5cNwXHZ9azkQpyFRPe6bbrqfJ/X5gN64HgBfrEUo8cLxHCMKw3DKPYrkOLHS4CQjnSrLcqzDK8ax3GafZwcbqKWbmR5LUjTNR1DS9Hy3Kh8O4sSDbDqeZZpW7bNx2Xa9YQZcS5JBvfA8BwXC6JY7heR4ZIHTT9GbNc7zXQdHxLiuUZrnUEwvFYIoDjeXZuHePA+A8Hx/kuYhQD2WQqg8T4vlWbJ3nuPg+l+H5BFEASAg==")
var_Appearance:Add(2,"CP:1 0 -3 0 3")
var_MarkTime := oDCOCX_Exontrol1:MarkTimes:Add("timer1",SToD("20120524 11:15:00"))
var_MarkTime:BackColor := 0x1000000
var_MarkTime:Line := exNoLines
var_MarkTime:Label := "default height"
var_MarkTime:LabelAlign := exBottomRight
var_MarkTime1 := oDCOCX_Exontrol1:MarkTimes:Add("timer2",SToD("20120524 13:15:00"))
var_MarkTime1:BackColor := 0x2000000
var_MarkTime1:Line := exNoLines
var_MarkTime1:Label := "larger height"
var_MarkTime1:LabelAlign := exBottomRight
oDCOCX_Exontrol1:EndUpdate()
|
|
129
|
How I know what event was edited when it was edited by a user
METHOD OCX_Exontrol1LayoutEndChanging(Operation) CLASS MainDialog
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
OutputDebugString(String2Psz( "End Operation exScheduleEditEvent(15)" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "Use the global member from LayoutStartChanging, and you got the Event being edited" ))
RETURN NIL
METHOD OCX_Exontrol1LayoutStartChanging(Operation) CLASS MainDialog
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
OutputDebugString(String2Psz( "Start Operation exScheduleEditEvent(15)" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "Holds the EventFromPoint to a global member" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[EventFromPoint,-1,-1]) ))
RETURN NIL
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelectEventStyle := exLinesThicker | exLinesSolid
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 09:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:45:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
128
|
What are timers in your exSchedule component
local var_Events as IEvents
local var_MarkTime,var_MarkTime1 as IMarkTime
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_MarkTime := oDCOCX_Exontrol1:MarkTimes:Add("timer1",SToD("20120524 08:35:00"))
var_MarkTime:Label := "<fgcolor=808080>fixed timer"
var_MarkTime:LabelAlign := exTopCenter
var_MarkTime:Pattern:Type := exPatternBDiagonal
var_MarkTime:Pattern:Color := RGB(224,224,224)
var_MarkTime1 := oDCOCX_Exontrol1:MarkTimes:Add("timer2",SToD("20120524 10:51:00"))
var_MarkTime1:Label := "<fgcolor=00FF00>movable timer"
var_MarkTime1:Movable := true
var_MarkTime1:BodyEventBackColor := RGB(128,255,128)
var_MarkTime1:LineColor := RGB(0,240,15)
var_MarkTime1:TimeScaleLineColor := RGB(0,255,0)
var_MarkTime1:TimeScaleLabel := ""
var_MarkTime1:Line := exLinesThicker | exLinesDash
var_MarkTime1:Label := "<bgcolor=FFFFFF><fgcolor=00FF00><b><%hh%>:<%nn%> <%AM/PM%><br><%loc_sdate%>"
var_MarkTime1:TimeScaleLine := exLinesThick | exLinesDot4
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 09:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:45:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 14:30:00"))
var_Events:Add(SToD("20120524 12:45:00"),SToD("20120524 15:45:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
127
|
How do I get the selected dates in the calendar panel
METHOD OCX_Exontrol1LayoutEndChanging(Operation) CLASS MainDialog
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
OutputDebugString(String2Psz( "Operation: exScheduleSelectionChange(10)" ))
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "Selected Event Count:" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:SelCount) ))
OutputDebugString(String2Psz( "First Selected Event:" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[SelEvent,0]) ))
RETURN NIL
local var_Events as IEvents
oDCOCX_Exontrol1:Calendar:Selection := SToD("20110101")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20110101 10:00:00"),SToD("20110101 11:30:00"))
var_Events:Add(SToD("20110101 11:30:00"),SToD("20110101 13:30:00"))
|
|
126
|
How do I get the selected dates in the calendar panel
METHOD OCX_Exontrol1LayoutEndChanging(Operation) CLASS MainDialog
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
local var_Calendar as ICalendar
OutputDebugString(String2Psz( "Operation: exCalendarSelectionChange(1)" ))
OutputDebugString(String2Psz( AsString(Operation) ))
var_Calendar := oDCOCX_Exontrol1:Calendar
OutputDebugString(String2Psz( "Selected Date Count:" ))
OutputDebugString(String2Psz( AsString(var_Calendar:SelCount) ))
OutputDebugString(String2Psz( "First Selected Date:" ))
OutputDebugString(String2Psz( AsString(var_Calendar:[SelDate,0]) ))
RETURN NIL
|
|
125
|
What is the easiest way to display a picture on my event
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:Pictures:Add("pic1","c:\exontrol\images\zipdisk.gif")
oDCOCX_Exontrol1:Events:Add(SToD("20120524 09:00:00"),SToD("20120524 14:00:00")):Pictures := "pic1"
|
|
124
|
How can I programmatically move a specified event
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00")):MoveBy("-00:15")
oDCOCX_Exontrol1:EndUpdate()
|
|
123
|
How can I edit the event but still display its margins
METHOD OCX_Exontrol1AddEvent(Ev) CLASS MainDialog
// AddEvent event - Notifies your application once the a new event is added.
// Ev.Editable = 1
RETURN NIL
local var_Event,var_Event1 as IEvent
local var_Events as IEvents
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%256%><br><%=%5%>"
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
var_Events := oDCOCX_Exontrol1:Events
var_Event := var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
var_Event:Editable := exEditCaption
var_Event:Caption := "your caption"
var_Event1 := var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00"))
var_Event1:Editable := exEditCaption
var_Event1:Caption := "other caption"
|
|
122
|
How can I edit the events
METHOD OCX_Exontrol1AddEvent(Ev) CLASS MainDialog
// AddEvent event - Notifies your application once the a new event is added.
// Ev.Editable = 3
RETURN NIL
local var_Event,var_Event1 as IEvent
local var_Events as IEvents
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:DefaultEventLongLabel := ""
oDCOCX_Exontrol1:DefaultEventShortLabel := ""
oDCOCX_Exontrol1:CreateEventLabel := ""
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
var_Events := oDCOCX_Exontrol1:Events
var_Event := var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
var_Event:Editable := exEditLongLabel
var_Event:LongLabel := "just your label"
var_Event1 := var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00"))
var_Event1:Editable := exEditLongLabel
var_Event1:LongLabel := "just another label"
|
|
121
|
At the moment the scheduler only displays events from 8:00 am to 3:00 pm. How do I extend this time frame
oDCOCX_Exontrol1:DayStartTime := "07:30"
oDCOCX_Exontrol1:DayEndTime := "14:30"
|
|
120
|
How does localization work
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:FirstWeekDay := var_Calendar:LocFirstWeekDay
var_Calendar:MonthNames := var_Calendar:LocMonthNames
var_Calendar:WeekDays := var_Calendar:LocWeekDays
var_Calendar:AMPM := var_Calendar:LocAMPM
|
|
119
|
Is it possible to limit the calendar to one month only
local var_Calendar as ICalendar
oDCOCX_Exontrol1:ScrollBars := exNoScroll
oDCOCX_Exontrol1:AllowMoveSchedule := exDisallow
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010110")
var_Calendar:MinDate := SToD("20010101")
var_Calendar:MaxDate := SToD("20010131")
|
|
118
|
How can I display a distingue text for repetitive events
local var_Events as IEvents
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%256%><br><%=%264? `repetitive event`:``%>"
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00")):Repetitive := "weekday(value) = 3"
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00"))
|
|
117
|
How can I display the event's duration on the body of the event
local var_Events as IEvents
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%256%><br><%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')%>"
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00"))
|
|
116
|
The sample shows how the event's body can display automatically the UserData property of the event
local var_Events as IEvents
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%256%><br><%=%6%>"
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00")):UserData := "UserData 1"
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00")):UserData := "UserData 2"
|
|
115
|
The sample shows how the event's body can display automatically the Caption property of the event
local var_Events as IEvents
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%256%><br><%=%5%>"
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00")):Caption := "Event 1"
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00")):Caption := "Event 2"
|
|
114
|
The sample shows how the event's body can display automatically the group's ID, Caption and Title
local var_Events as IEvents
local var_Group,var_Group1 as IGroup
local var_Groups as IGroups
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:DefaultEventLongLabel := "Group's ID:<%=%4%><br>Group's Caption: <%=%262%><br>Group's Title: <%=%263%><br><%=%256%>"
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:DisplayGroupingButton := true
oDCOCX_Exontrol1:ShowGroupingEvents := true
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
var_Groups := oDCOCX_Exontrol1:Groups
var_Group := var_Groups:Add(1,"Group 1")
var_Group:Title := "First"
var_Group:Visible := true
var_Group1 := var_Groups:Add(2,"Group 2")
var_Group1:Title := "Second"
var_Group1:Visible := true
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00")):GroupID := 1
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00")):GroupID := 2
|
|
113
|
The following sample displays automatically an "All-Day-Event: " prefix for AllDayEvent events
local var_Events as IEvents
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%3 ? `All-Day-Event: `: ``%><%=%256%>"
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110"),SToD("20010110")):AllDayEvent := true
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00"))
|
|
112
|
How can I use the calendar's LongTimeFormat
local var_Calendar as ICalendar
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%257%>"
oDCOCX_Exontrol1:DefaultEventShortLabel := "<%=%257%>"
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010110")
var_Calendar:LongTimeFormat := "<%hh%>:<%nn%>:<%ss%>"
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
oDCOCX_Exontrol1:Events:Add(SToD("20010110 10:00:00"),SToD("20010111 13:00:00"))
|
|
111
|
How can I use the calendar's ShortTimeFormat. The sample displays the times in 24-hours format
local var_Calendar as ICalendar
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%256%>"
oDCOCX_Exontrol1:DefaultEventShortLabel := "<%=%256%>"
oDCOCX_Exontrol1:TimeScales:[Item,0]:MajorTimeLabel := "<%hh%>:<%nn%>"
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010110")
var_Calendar:ShortTimeFormat := "<%h%>:<%nn%>"
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
oDCOCX_Exontrol1:Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00"))
|
|
110
|
How can I use the calendar's ShortDateFormat
local var_Calendar as ICalendar
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%256%>"
oDCOCX_Exontrol1:DefaultEventShortLabel := "<%=%256%>"
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010110")
var_Calendar:ShortDateFormat := "<%loc_d2%>, <%loc_m2%> <%d%>, <%yy%>"
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
oDCOCX_Exontrol1:Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00")):AllDayEvent := true
|
|
109
|
How can I use the calendar's LongDateFormat
local var_Calendar as ICalendar
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%257%>"
oDCOCX_Exontrol1:DefaultEventShortLabel := "<%=%257%>"
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010110")
var_Calendar:LongDateFormat := "<%loc_dddd%>, <%loc_mmm%> <%d%>, <%yyyy%>"
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
oDCOCX_Exontrol1:Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00")):AllDayEvent := true
|
|
108
|
Is it possible to prevent updating events
local var_Calendar as ICalendar
local var_Events as IEvents
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:AllowUpdateDisableZone := false
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:ShowNonMonthDays := false
var_Calendar:Selection := SToD("20010109")
var_Calendar:DisableZoneFormat := "value >= #1/11/2001#"
var_Calendar:MinDate := SToD("20010101")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00"))
var_Events:Add(SToD("20010111 10:00:00"),SToD("20010111 13:00:00"))
|
|
107
|
How can I specify that after editing the caption should be on top ( method 2 )
local var_Calendar as ICalendar
local var_Event as IEvent
local var_Events as IEvents
oDCOCX_Exontrol1:DefaultEventLongLabel := ""
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:ShowNonMonthDays := false
var_Calendar:Selection := SToD("20010101")
var_Events := oDCOCX_Exontrol1:Events
var_Event := var_Events:Add(SToD("20010101 10:00:00"),SToD("20010101 13:00:00"))
var_Event:ExtraLabel := "title"
var_Event:ExtraLabelAlign := exTopLeft
|
|
106
|
How can I specify that after editing the caption should be on top ( method 1 )
local var_Calendar as ICalendar
local var_Event as IEvent
local var_Events as IEvents
oDCOCX_Exontrol1:DefaultEventLongLabel := ""
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:ShowNonMonthDays := false
var_Calendar:Selection := SToD("20010101")
var_Events := oDCOCX_Exontrol1:Events
var_Event := var_Events:Add(SToD("20010101 10:00:00"),SToD("20010101 13:00:00"))
var_Event:LongLabel := "title"
var_Event:Editable := exEditLongLabel
|
|
105
|
How can I get ride or hide the of the calendar's grid lines
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:ShowNonMonthDays := false
var_Calendar:Selection := SToD("20010101")
var_Calendar:ShowGridLines := exNoLines
|
|
104
|
How can I programmatically select a single date ( method 2 )
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120101")
|
|
103
|
How can I programmatically select a single date ( method 1 )
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := "0"
var_Calendar:[SelectDate,SToD("20120101")] := true
|
|
102
|
How can I prevent showing the Today button, in the calendar panel
oDCOCX_Exontrol1:OnResizeControl := exHideSplitter
oDCOCX_Exontrol1:Calendar:ShowTodayButton := false
|
|
101
|
How can I display just the calendar panel, not including the schedule panel
oDCOCX_Exontrol1:OnResizeControl := exHideSplitter
|